home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 17 / Developer Source Volume 17 (I-MODE Publications, Inc.)(2000).iso / dobbs / jun97 / reicf101.gif

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  96KB  |  585x389  |  4-bit (16 colors)

Labels: text | diagram | screenshot | plan | parallel | rectangle | font
OCR: Client Extensions Interpret( ), Interpreter Language m_RetOb's Extension Object Parser SbiEngine SbiParser Dim Interpreter As NewSbiEngine AddExtension (Object) | Block Interpreter :AddExtension"", Extension(1) Parse(Code) Fetch ' Get the Next Token from the Code. Interpreter AddExtension"", Extension(2) Runthis(Cede ) o Select Case m_Token Interpreter .RunThis(Code) Controller Case "CALL" Dim Function FactorCo ASNew SbiController SbiFunctionFactorOp PushValse(Value) FunctionFactorOp.Initialize Obj .. PopValue(Value) SbiObject IDs(D), InvokeName[Cbj,Namne,invoke Type,Expres, Resull) Exprs InvokeID(Obj,Id,Invoke Type, Expres, Result.] o Execute(Controller) End Select m_Simts m_Obj StiBlock SoiFunction FactorOp (2 Execute(Controller) @ Initialize(Object,id .... ) Execute(Controlen) o Set Parser = NewSb Parser 6 Set Block = Parser .Parse(Code) m_Invoke Type Set Controller - NewStiController m Exprs VirtualInvoke Obj .. Block Execute Controller IDs. Invoke Type. 5. Result For Each Sim !. in m: Simis Controller.Invoke D m_Obj ._ Simt.Exccute Controler mainvokeType Next Samt THExprs Figure 1: The Interpreter design pattern used in the SHI

---